home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / NumberFormatting.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  4.6 KB  |  184 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        NumberFormatting.a
  3. ;
  4. ;    Contains:    Utilites for formatting numbers
  5. ;
  6. ;    Version:    Technology:    
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1996-1997 by Apple Computer, Inc., all rights reserved.
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__NUMBERFORMATTING__') = 'UNDEFINED' THEN
  19. __NUMBERFORMATTING__ SET 1
  20.  
  21.     IF &TYPE('__CONDITIONALMACROS__') = 'UNDEFINED' THEN
  22.     include 'ConditionalMacros.a'
  23.     ENDIF
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27.     IF &TYPE('__INTLRESOURCES__') = 'UNDEFINED' THEN
  28.     include 'IntlResources.a'
  29.     ENDIF
  30.  
  31.  
  32. ; 
  33. ;
  34. ;    Here are the current System 7 routine names and the translations to the older forms.
  35. ;    Please use the newer forms in all new code and migrate the older names out of existing
  36. ;    code as maintainance permits.
  37. ;    
  38. ;    New Name                    Old Name(s)
  39. ;    
  40. ;    ExtendedToString            FormatX2Str
  41. ;    FormatRecToString            Format2Str
  42. ;    NumToString                
  43. ;    StringToExtended            FormatStr2X
  44. ;    StringToFormatRec            Str2Format
  45. ;    StringToNum                
  46. ;
  47. ;
  48.  
  49. NumFormatString            RECORD 0
  50. fLength                     ds.b    1                ; offset: $0 (0)
  51. fVersion                 ds.b    1                ; offset: $1 (1)
  52. data                     ds.b    254                ; offset: $2 (2)        ;  private data 
  53. sizeof                     EQU *                    ; size:   $100 (256)
  54.                         ENDR
  55. NumFormatStringRec        RECORD 0
  56. f                         ds        NumFormatString
  57. sizeof                     EQU *                    ; size:   $100 (256)
  58.                         ENDR
  59.  
  60.  
  61. ; typedef short                         FormatStatus
  62.  
  63.  
  64. fVNumber                        EQU        0                    ; first version of NumFormatString 
  65. ; typedef SInt8                         FormatClass
  66.  
  67.  
  68. fPositive                        EQU        0
  69. fNegative                        EQU        1
  70. fZero                            EQU        2
  71. ; typedef SInt8                         FormatResultType
  72.  
  73.  
  74. fFormatOK                        EQU        0
  75. fBestGuess                        EQU        1
  76. fOutOfSynch                        EQU        2
  77. fSpuriousChars                    EQU        3
  78. fMissingDelimiter                EQU        4
  79. fExtraDecimal                    EQU        5
  80. fMissingLiteral                    EQU        6
  81. fExtraExp                        EQU        7
  82. fFormatOverflow                    EQU        8
  83. fFormStrIsNAN                    EQU        9
  84. fBadPartsTable                    EQU        10
  85. fExtraPercent                    EQU        11
  86. fExtraSeparator                    EQU        12
  87. fEmptyFormatString                EQU        13
  88. FVector                    RECORD 0
  89. start                     ds.w    1                ; offset: $0 (0)
  90. length                     ds.w    1                ; offset: $2 (2)
  91. sizeof                     EQU *                    ; size:   $4 (4)
  92.                         ENDR
  93. ;  index by [fPositive..fZero] 
  94. TripleInt                RECORD 0
  95. elements                 ds.b    3 * FVector.sizeof
  96. sizeof                     EQU *                    ; size:   $C (12)
  97.                         ENDR
  98.  
  99.  
  100. ;
  101. ; pascal void StringToNum(ConstStr255Param theString, long *theNum)
  102. ;
  103.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  104.         Macro
  105.         _StringToNum
  106.             move.w              #$0001,-(sp)
  107.             dc.w                $A9EE
  108.         EndM
  109.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  110.         IMPORT_CFM_FUNCTION StringToNum
  111.     ENDIF
  112.  
  113. ;
  114. ; pascal void NumToString(long theNum, Str255 theString)
  115. ;
  116.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  117.         Macro
  118.         _NumToString
  119.             move.w              #$0000,-(sp)
  120.             dc.w                $A9EE
  121.         EndM
  122.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  123.         IMPORT_CFM_FUNCTION NumToString
  124.     ENDIF
  125.  
  126.  
  127. ;
  128. ; pascal FormatStatus ExtendedToString(const extended80 *x, const NumFormatString *myCanonical, const NumberParts *partsTable, Str255 outString)
  129. ;
  130.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  131.         Macro
  132.         _ExtendedToString
  133.             move.l              #$8210FFE8,-(sp)
  134.             dc.w                $A8B5
  135.         EndM
  136.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  137.         IMPORT_CFM_FUNCTION ExtendedToString
  138.     ENDIF
  139.  
  140. ;
  141. ; pascal FormatStatus StringToExtended(ConstStr255Param source, const NumFormatString *myCanonical, const NumberParts *partsTable, extended80 *x)
  142. ;
  143.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  144.         Macro
  145.         _StringToExtended
  146.             move.l              #$8210FFE6,-(sp)
  147.             dc.w                $A8B5
  148.         EndM
  149.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  150.         IMPORT_CFM_FUNCTION StringToExtended
  151.     ENDIF
  152.  
  153. ;
  154. ; pascal FormatStatus StringToFormatRec(ConstStr255Param inString, const NumberParts *partsTable, NumFormatString *outString)
  155. ;
  156.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  157.         Macro
  158.         _StringToFormatRec
  159.             move.l              #$820CFFEC,-(sp)
  160.             dc.w                $A8B5
  161.         EndM
  162.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  163.         IMPORT_CFM_FUNCTION StringToFormatRec
  164.     ENDIF
  165.  
  166. ;
  167. ; pascal FormatStatus FormatRecToString(const NumFormatString *myCanonical, const NumberParts *partsTable, Str255 outString, TripleInt positions)
  168. ;
  169.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  170.         Macro
  171.         _FormatRecToString
  172.             move.l              #$8210FFEA,-(sp)
  173.             dc.w                $A8B5
  174.         EndM
  175.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  176.         IMPORT_CFM_FUNCTION FormatRecToString
  177.     ENDIF
  178.  
  179.  
  180.     IF OLDROUTINENAMES THEN
  181.     ENDIF    ; OLDROUTINENAMES
  182.     ENDIF ; __NUMBERFORMATTING__ 
  183.  
  184.